﻿Imports System.Windows.Forms
Imports System.Drawing
Imports ajayumi.develop.VBasic.Controls.Forms.Utilities


Namespace Forms.Events
    ''' <summary>
    ''' 绘制控制事件数据
    ''' </summary>
    Public Class ControlBoxRenderEventArgs
        Inherits PaintEventArgs

        Private m_Form As FormBase = Nothing
        Private m_Active As Boolean = False
        Private m_ControlBoxState As ControlBoxState = ControlBoxState.Normal
        Private m_ControlBoxStyle As ControlBoxStyle = ControlBoxStyle.None

        Public ReadOnly Property Form() As FormBase
            Get
                Return Me.m_Form
            End Get
        End Property

        Public ReadOnly Property Active() As Boolean
            Get
                Return Me.m_Active
            End Get
        End Property

        Public ReadOnly Property ControlBoxState() As ControlBoxState
            Get
                Return Me.m_ControlBoxState
            End Get
        End Property

        Public ReadOnly Property ControlBoxStyle() As ControlBoxStyle
            Get
                Return Me.m_ControlBoxStyle
            End Get
        End Property

        Public Sub New(ByVal frm As FormBase, _
                       ByVal active As Boolean, _
                       ByVal state As ControlBoxState, _
                       ByVal style As ControlBoxStyle, _
                       ByVal g As Graphics, _
                       ByVal clipRect As Rectangle)
            MyBase.New(g, clipRect)
            Me.m_Form = frm
            Me.m_Active = active
            Me.m_ControlBoxState = state
            Me.m_ControlBoxStyle = style
        End Sub
    End Class
End Namespace

